/* GetMail ARexx script for AWeb Version 1.1 By Jeff Dettman (tomeeee@soho.ios.com) Description: ------------ This script can be used to poll your POPHost for mail and will display the results under AWeb (have mail, here it is; have no mail; AmiTCP isn't running) Requires: --------- GetMail3.lha from comm/tcp Notes: ------ This script is set up to automatically delete the mail from your POPHost server. If you wish to change this, remove the word 'delete' from the command parameters on line 43 */ /* change these options for your account */ /* optional if using AmiTCP and AmiTCP login name is the SAME as POPHost login name */ user = 'your_user_name' /*e.g user = 'tomeeee'*/ /* Manditory to get mail from POPHost */ password = 'yourpassword' /* optional if AmiTCP has entry for POPHost in AmiTCP:db/hosts */ /* see getmail.doc for information on this topic */ pophost = 'your_pophost' /* optional but recommended */ emailaddr = 'your_email_adress' /* internal use, don't modify the following */ home = 'T:' mailfile = 'GetMail.tempfile' /* MAIN SCRIPT */ /*options results*/ address command 'c:GetMail user='user 'password='password 'pophost='pophost 'home='home 'mail='mailfile 'delete' if rc ~= 20 then do if exists('T:GetMail.tempfile') then do address command 'rx trimmail.rexx' end if ~exists('T:GetMail.tempfile') then do address command 'echo >T:GetMail.HaveNone "Mail Message

Mail Message

"' 'echo >>T:GetMail.HaveNone "
Sorry, no mail was found at this time
"' /* Load the temp file into AWeb. Use the RELOAD switch to force the file to be reloaded */ address AWEB.1 'open file://localhost/t:GetMail.HaveNone reload' address command 'delete t:GetMail.HaveNone' 'delete t:GetMail.HaveSome' exit end end if rc = 20 then do address command 'echo >T:AmiTCP.notrunning "ERROR!
"'
  'echo >>T:AmiTCP.notrunning "
AmiTCP is required to be running
"'
     /*  Load the temp file into AWeb.
     Use the RELOAD switch to force the file to be reloaded*/
  address AWEB.1 'open file://localhost/t:AmiTCP.notrunning reload'
  address command 'delete t:AmiTCP.notrunning'
     exit
   end
  else do
  /* Load the temp file into AWeb.
     Use the RELOAD switch to force the file to be reloaded */

 call ht
address AWEB.1 'open file://localhost/t:from.html reload'
 end
/* address command 'delete t:GetMail.HaveSome'*/
 /* address command  'delete t:Getmail.HaveSome'*/
  exit
end




return 0
ht:
open(p1,'t:from.html',w)
open(3,'T:GetMail1.temp',r)
a=0
call writeln(p1,"E-Mail Messages
E-Mail Messages
")
call writeln(p1,"
You have the following message(s) from:")
call writeln(p1,"")
call writeln(p1,"")
call writeln(p1,'
")
call writeln(p1,"Delete Messages Save Messages")
close(p1)
return 0